make dir

:align
face cgdir
jneq ctdir,cgdir,:align

lock 1
auto 1

:again
scope dir
face dir
jneq ctdir,dir,:again

fire
goto :again